home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / rexx / rmh.lha / RMH / Examples / nschild.rexx < prev    next >
OS/2 REXX Batch file  |  2001-05-24  |  343b  |  30 lines
  1. /*
  2. ** NamedSpace & MacroNotify
  3. ** Child macro
  4. **
  5. **/
  6.  
  7. signal on halt
  8. signal on break_c
  9. signal on break_d
  10.  
  11. parse arg name i
  12.  
  13. call MacroNotifyJoin(name)
  14. joined=1
  15.  
  16. call MacroEnv("env")
  17.  
  18. call NamedSpaceImport(name,"var.#?")
  19. do i=0 to 9
  20.     say var.i
  21. end
  22.  
  23. break_c:
  24. halt:
  25.     if joined~=1 then call MacroNotifyJoin(name)
  26.     exit
  27.  
  28. break_d:
  29.     exit
  30.